
Artificial Intelligence Project—RLE and MIT Computation Center 
Memo 35 — LAP (LISP ASSEMBLY PROGRAM) 



LAP Is an internal two pass assembler for LISP 1.5* It Is a 
pseudo-function with two arguments called the listing and the 
symbol table. 

Before defining LAP precisely, we shall give two examples: 
Example 1: 

PR062 is defined as: (LAMBDA (X Y) Y) 

The LAP program for PR0G2 is: 

LAP IIT *R062 SUBR 2) (XCA) (TRA 1 4))NIL) 

Example 2: 

At location 8763 $ the following patch is to be made: 

PDX ,2 

TXL A, 2,4CAR-1 
TXH ■*+3»2,^1 CAR- 

CLA (BAD ARGUMENT) in decrement of word 
TRA ER1 
A TRA 2,4 


where ER1 is location 12043 10< 

The LAP program Is as follows: 

LAP £ ( 8763Q 

(PDX 02) 

(TXL {(* 3 ) 2 ((ECAR) -1)V 

(TXH A 2 (E CAR)) 

(CLA (QPOTE (BAD ARGUMENT))) 
(TRA ER1) 

A (TRA 24) 


) ((ER1 • 12043)) ) 

Definitions: 

First argument of LAP: Listing 
Second argument of LAP: Syratab 

a 

The listing is a one level list of items each of which is either 
an origin an instructi on or a symb ol. 

■Ufa- 1 ■■ ■ —II M W. ^-11 " ■ ■ 

The first item on the listing is always the origin . 

Any item except the first Is a symbol if It is atomic. 

Any Item except the first is an instruction if it Is non-atonic 
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Origin: 

The first symbol on the listing is taken as the origin 
statement. It Is interpreted as follows: 

1, If the origin is a LISP number, then the assembly will 
begin at that location * It may be an octal number or a decimal 
number. 

2. If the origin 1:J an atomic symbol other than NIL, it must have 

• ■ 

a SYM on its property list' or error LI will occur. A SYM on the 
property list of an atomic symbol indicates a value, op-code, location, 
or some other quantity for LAP. The low order bits of the number 
pointed to by the SYM are taken as the origin. See OPDBFX NE. 

3. If the origin is NXL, the assembly will start at the first 
available location in Binary Program Space (BPS). The origin 
marker for BPS will be updated to avoid writing over this assembly by 
the next assembly, if the assembly Is terminated by an error, 

this does not occur. If after the first pass, the assembler 
determines that there Ij not room in BPS for the entire assembly, 
then the second pass Is cancelled and no assembly takes place. This is 
error condition L2. 

4. If the origin iq a Hit of the type (name type n), then the 
assembly is in BPS with the same protective devices as in case 3 
above. After the assembly is. completed, a pointer to the binary 
program is placed on (he property list of the atomic symbol name. 

The pointer is flaggy by the atomic symbol "type" which is 
usually SHBR or FSUR*. The number of arguments “n n is placed in 

the decremerif; of the pointer. The prefix contains the op-code 
TXL. 

In example 1, the origin (PR0G2 SUBR 2) put the following pointer 
on the property list of PR0Q2: 



TXL begin,, 2 


Symbols: 

Atomic symbols appearing on the top level of the listing are 
defined as having the value of the next Instruction following the 
symbol. Any number of symbols may appear at any point In the 
listing. During pass 1, a symbol table Is built up. It might look 

like this: 
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((A. 3 ^ 26 q) (SYB0Lv3^25Q)) 

If the second argument of LAP is not NIL, it will be taken as the . 
initial symbol table* 

Instructions: 

The instruction has up to four fields. Each field is evaluated 
separately. The result of each field evaluation is a 36 bit 
quantity. The fields are then assembled as follows: 

1. The op field is stored at the current location. 

ic 

2, The address field Is reduced modulo 2 J and OR'ed into the 
address of the current location. 


An arithmetic - 1 with a negative sign bit is changed to 77777- 

3 , The tag field is multiplied by 2 1 * and OR*ed into the 
current location. The instruction CLA* 1,4 is written (CLA 1 604), 

ic 

4, The decrement field is reduced modulo 2 J and OR’ed into 
the decrement of the current location. 

Field Evaluations: 

1 1— ir~ Miniim 1 —1 ■ 1 \- r~ —1— —— ■- 

All fields are evaluated in the same way, regardless of their 
position in the instruction. 

If the field is an atomic, evaluation is as follows: 

null [field 3 contents of the cell$ORG. This contains 

the location of the next assembly in 
BPS, if the current assembly is not in 
BPS. Otherwise it contains the origin 
of the current assembly. This symbol is 
used to write patches into BPS. 
eq{fields *3 "+ current location 

field £ symbol sassoc[fieldssymtab 3 

number p [field] —■ actual number 

T get [field* StBR] or getEfieldjFSCBR] or get [field; STM 3 

or error[L33 

If the field is non-atomic, then the evaluation occurs in the 
following order, 

eq[car[field];E] cadrffieldj. (E ) will evaluate to 

the compliment pointer to ^ . This 
appears as the address portion of 
the field value. 

eq{ car(field] orE] -♦* cons[NIL;cadr{field] ]. 
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(E Q<s) will evaluate as a direct pointer to a cell 
containing in its decrement. This cell is put on the 

protected quote.list. The quote list does not contain 
duplication. 

eqfcar[field]$SPECIAL] -*• get [field; SPECIAL]. 

T "*■ the sum of all of the subfields. 

A non-atomic that does not begin with E,QUOTE, or SPECIAL is 
assumed to be a list of subfields whose values will be added together. 
The subfields themselves may be fields of any type except that 
they may not have sub~subfields. 

Error Diagnostics 

LI - Unable to evaluate symbolic origin. No Assembly. 

L2 - Out of Binary Program Space. Second Pass Cancelled. 

L3 - Undefined symbol. Assembly Incomplete. 

L4 - Field with sub-subfields is Illegal. Assembly incomplete. 
OPDEFINE 

To define new quantities for the assembler, use the pseudo-function 
OPDEFINE. its argument Is a list of pairs. The first member of 
each pair is a symbol, the second is a value. 

Example: 

OPDEFINE (( (CLA 0500Q8) 

(TRA 0020Q8) 

(LOAD 100Q) 

(OVBGN 7432) )j 

The following op-codes are defined in the system. 


AXT 

STQ 

TNZ 

CLA 

STR 

TRA 

LDQ 

ST2 

TSX 

SLQ 

SUB 

TXI 

STD 

SXA 

TZE 

STO 

* TNX 

XCA 
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